home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / modula.zoo / _defn_inout.def < prev    next >
Text File  |  1988-04-26  |  842b  |  49 lines
  1. DEFINITION MODULE InOut;
  2.  
  3. CONST
  4.   EOL = 15C;  (* cr *)
  5.  
  6. VAR
  7.   Done:   BOOLEAN;
  8.   termCH: CHAR;
  9.  
  10.  
  11. PROCEDURE OpenInput (defext: ARRAY OF CHAR);
  12.  
  13. PROCEDURE OpenOutput (defext: ARRAY OF CHAR);
  14.  
  15. PROCEDURE CloseInput;
  16.  
  17. PROCEDURE CloseOutput;
  18.  
  19. PROCEDURE Read (VAR ch: CHAR);
  20.  
  21. PROCEDURE ReadString (VAR s: ARRAY OF CHAR);
  22.  
  23. PROCEDURE ReadInt (VAR x: INTEGER);
  24.  
  25. PROCEDURE ReadCard (VAR x: CARDINAL);
  26.  
  27. PROCEDURE ReadLong (VAR x: LONGINT);
  28.  
  29. PROCEDURE Write (ch: CHAR);
  30.  
  31. PROCEDURE WriteLn;
  32.  
  33. PROCEDURE WriteString (s: ARRAY OF CHAR);
  34.  
  35. PROCEDURE WriteInt (x: INTEGER; n: CARDINAL);
  36.  
  37. PROCEDURE WriteCard (x, n: CARDINAL);
  38.  
  39. PROCEDURE WriteOct (x, n: CARDINAL);
  40.  
  41. PROCEDURE WriteHex (x, n: CARDINAL);
  42.  
  43. PROCEDURE WriteLong (x: LONGINT; n: CARDINAL);
  44.  
  45. PROCEDURE WriteLongHex (x: LONGINT; n: CARDINAL);
  46.  
  47.  
  48. END InOut.
  49.